perm filename GRAB.FAI[HAK,HPM]1 blob sn#092351 filedate 1974-05-24 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	JOB:	0
C00003 ENDMK
CāŠ—;
JOB:	0
DONE:	1
RELOC:	770000000000
PRIV:	0

START:	PJOB	1,
	MOVEM	1,JOB
	MOVEI	1,271
	PEEK	1,
	ADDM	1,JOB
	RESCAN
	HRLZI	1,1
CHRD:	INCHRW	2
	CAIN	2,15
	JRST	EOL
	MOVE	3,2
	JRST	CHRD
EOL:	INCHRW	2
	CAIN	3,40
	HRROI	1,0
	MOVEM	1,PRIV
	SPCWAR	0,SRUN
	SKIPE	DONE
	JRST	.-1
	EXIT

SRUN:	MOVE	11,JOB
	MOVE	10,PRIV
	MOVE	1,[DATAO 0,RELOC]
	MOVE	2,[MOVEM 10,(11)]
	MOVE	3,[DISMIS]
	SETZM	DONE
	JRST	1

	END	START